for($i=0;$i<100;$i++)
{
	if($i == 50)
	{
		last;
	}
	print "$i\n";
}
=head 
$m = -2.0;
 $n  = -1.96;

for($z =0;$z <100;$z++)
{
    if($z == 99)
    {
          $n = 2.04;
    }
    $m = sprintf("%.2f", $m);
    $n = sprintf("%.2f", $n);
    #if($z == 9)
    #{
    #      $n = 0;
    #}
    #if($z == 10)
    #{
    #      $m = 0;
    #}

   $differ[$z] ="$z\t$m\t$n";
   print "$z\t$m\t$n\n";
   $m = $m + 0.04;
   $n = $n + 0.04;
}

$my = $ARGV[0];
$my = $my+2;
if($my == 4)
{
	$my = 3.9999;

}

$my = $my/0.04 ;
#print $my."\n";
$my = int($my+0.000001);
#print $my."\n";

print "$my\t $differ[$my]\n";
=cut
